1st Multimedia Mac Shareware/Multimedia Shareware CD-ROM - BetaCorp.iso/StackToolsƒ/Animating/FieldEffects/stack_-1.xml

Extensible Markup Language | 1992-08-18 | 4.2 KB | 21 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>2</cardCount>
    <cardID>2841</cardID>
    <listID>3518</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on NewField
set lockscreen to "true"
if the optionKey = "down"
then
set the Style of the target to "scrolling"
else
set the Style of the target to "rectangle"
end if
set lockscreen to "false"
if the commandKey = "up"
then
put the script of card field "rectSave" of card 1 into it
set the script of the target to it
end if
choose browse tool
end NewField
on NewButton
if the commandKey = "up"
then
put the script of button "Funny" of card 1 into it
set the script of the target to it
end if
end NewButton
on rectchange
global bigRect
If the commandKey = down
then
set the lockText of the target to "true"
put item 2 of the rect of the target into top
put item 3 of the rect of the target into right
put item 4 of the rect of the target into bottom
put item 1 of the rect of the target into left

put item 1 of the loc of the target - left into midh
put item 2 of the loc of the target - top into midv

if (item 2 of the clickLoc - 15) ≤ top
then
if item 1 of the clickLoc ‚â• (right - 40)
then
put card field "rectSave" of card 1 into it
put the name of the target into ref
if ref contains "card field" then put the id of this card before ref
if the rect of the target ≠ bigRect
then
put "no" into check
repeat with x = 1 to the number of lines of it
if line x of it contains ref
then
put ref&","&the rect of the target into¬
line x of it
put "yes" into check
exit repeat
end if
end repeat
if check = "no"
then
put return & ref&","&¬
the rect of the target after it
end if
set the rect of the target to bigRect
else
repeat with x = 1 to the number of lines of it
if line x of it contains ref
then
set the rect of the target to item 2 to 5¬
of line x of it
delete line x of it
exit repeat
end if
end repeat
end if
put it into card field "rectSave" of card 1
else
repeat until the commandKey ≠ "down"
put item 2 of the mouseLoc into newtop
put item 1 of the mouseLoc into newleft
set the loc of the target to midh + newleft,midv + newtop

end repeat
end if
else
if (item 2 of the clickLoc + 15) ‚â• bottom
then
if item 1 of the clickLoc ‚â• (right - 40)
then
repeat until the commandKey ≠ "down"
put item 1 of the mouseLoc into newright
put item 2 of the mouseLoc into newbottom
set the rect of the target to left,top,newright,newbottom
end repeat
else
if item 1 of the clickloc ≤ left + 40
then
hide the target
wait until the mouseClick
show the target
end if
end if
end if
end if
else
if the optionKey = "down"
then
repeat until the optionKey = "up"
choose field tool
click at the mouseloc
if the ShiftKey = "up" then DoMenu "Bring Closer"
if the ShiftKey = "down" then DoMenu "Send Farther"
choose browse tool
end repeat
end if
end if
end rectchange
on buttonmove
if the commandKey = "down"
then
repeat until the commandkey = "up"
set the loc of the target to the mouseloc
end repeat
end if
if the optionkey = "down"
then
choose button tool
click at the loc of the target
repeat until the optionKey ≠ "down"
if the ShiftKey = "down" then DoMenu "Send Farther"
else DoMenu "Bring Closer"
end repeat
choose browse tool
else
if the ShiftKey = "down"
then
hide the target
wait until the mouseClick
show the target
end if
end if
end buttonmove


on closeField
global bigRect
if the rect of the target = bigRect
then
set lockScreen to true
put card field "rectSave"of card 1 into it
put the name of the target into ref
if ref contains "card field" then put the id of this card before ref

repeat with x = 1 to the number of lines of it
if line x of it contains ref
then
set the rect of the target to item 2 to 5 of line x of it
exit repeat
end if
end repeat
set lockScreen to false
end if
pass closeField
end closeField

</script>
    <background id="2803" file="background_2803.xml" name="" />
    <card id="2841" file="card_2841.xml" marked="false" name="" owner="2803" />
    <card id="2233" file="card_2233.xml" marked="false" name="" owner="2803" />
</stack>